home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aai.d64 / plot'text.proc < prev    next >
Text File  |  2007-02-28  |  738b  |  30 lines
  1. 9000 //
  2. 9010 PROC PLOT'TEXT(ROW,COL,C$) CLOSED
  3. 9020  IF C$="" THEN RETURN
  4. 9030  START:=828
  5. 9040  IF PEEK(START)<>160 THEN
  6. 9050   POKE 29260,216 // LOWER'CASE
  7. 9060   POKE START,160 // RELOCATABLE
  8. 9070   POKE START+1,3 // CODE
  9. 9080   POKE START+2,177
  10. 9090   POKE START+3,51
  11. 9100   POKE START+4,170
  12. 9110   POKE START+5,200
  13. 9120   POKE START+6,177
  14. 9130   POKE START+7,51
  15. 9140   POKE START+8,201
  16. 9150   POKE START+9,192
  17. 9160   POKE START+10,144
  18. 9170   POKE START+11,4
  19. 9180   POKE START+12,233
  20. 9190   POKE START+13,96
  21. 9200   POKE START+14,145
  22. 9210   POKE START+15,51
  23. 9220   POKE START+16,202
  24. 9230   POKE START+17,208
  25. 9240   POKE START+18,242
  26. 9250   POKE START+19,96
  27. 9260  ENDIF 
  28. 9270  PLOTTEXT (COL-1)*8,192-(ROW-1)*8,C$
  29. 9280 ENDPROC PLOT'TEXT
  30.